home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)ab.d64 / luscher test.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  3KB  |  76 lines
  1. 0 POKE53280,14:POKE53281,15:PRINT"[147][142]";
  2. 1 PRINT"[144]A"
  3. 2 PRINT"COMPUTERSIMULATION"
  4. 3 PRINT"OFTHE"
  5. 4 PRINT"   [169]  [169]           "
  6. 5 PRINT"    [162] [185]     "
  7. 6 PRINT"   [146]             [146][169]"
  8. 7 PRINT"   [146][185]       [146]"
  9. 8 PRINT"    [146]  [146][169]  [146][169]  [146][169]        "
  10. 9 PRINT"o[183]op[180]opopp[183]o[183]o[183]p[183]"
  11. 10 PRINT"l[175]l[186]l[175]l[186]om[170]o[183]p[170]"
  12. 11 PRINT"[183][183][183][183]"
  13. 12 PRINT"CODED"
  14. 13 PRINT"BY"
  15. 14 PRINT"BOBSWIFT"
  16. 15 PRINT"TPUG#507"
  17. 16 PRINT"1984-DEC-09"
  18. 17 PRINT"SETTINGUP"
  19. 18 PRINT"PLEASEBEPATIENT"
  20. 19 GOTO24
  21. 20 FORI=LOTOLO+4:FORJ=0TO6:POKEI+40*J,PC:NEXTJ:NEXTI:POKELO+322,PC:RETURN
  22. 21 S=S+1
  23. 23 RETURN
  24. 24 DIMCO(7),CH(7),CL(7),PL(76),MU(76),EQ(76),MI(76),PM(76),PO(7)
  25. 25 S=1:FORI=0TO76:IFI=0OR(I-10*INT(I/10))>7THENSS=0:GOTO28
  26. 26 IFINT(I/10)=I-10*INT(I/10)THENSS=0:GOTO28
  27. 27 SS=S:GOSUB21
  28. 28 PL(I)=SS:NEXT
  29. 29 FORI=0TO76:IFI=0OR(I-10*INT(I/10))>7THENSS=0:GOTO32
  30. 30 IFINT(I/10)=I-10*INT(I/10)THENSS=0:GOTO32
  31. 31 SS=S:GOSUB21
  32. 32 MU(I)=SS:NEXT
  33. 33 FORI=0TO76:IFI=0OR(I-10*INT(I/10))>7THENSS=0:GOTO36
  34. 34 IFINT(I/10)=I-10*INT(I/10)THENSS=0:GOTO36
  35. 35 SS=S:GOSUB21
  36. 36 EQ(I)=SS:NEXT
  37. 37 FORI=0TO76:IFI=0OR(I-10*INT(I/10))>7THENSS=0:GOTO40
  38. 38 IFINT(I/10)=I-10*INT(I/10)THENSS=0:GOTO40
  39. 39 SS=S:GOSUB21
  40. 40 MI(I)=SS:NEXT
  41. 41 FORI=0TO76:IFI=0OR(I-10*INT(I/10))>7THENSS=0:GOTO44
  42. 42 IFINT(I/10)=I-10*INT(I/10)THENSS=0:GOTO44
  43. 43 SS=S:GOSUB21
  44. 44 PM(I)=SS:NEXT
  45. 45 FORI=0TO7:READCO(I):NEXT:I=RND(-TI):DATA12,6,5,8,7,4,9,0
  46. 46 FORI=0TO7:READPO(I):NEXT:DATA1108,1117,1126,1135,1548,1557,1566,1575
  47. 47 FORI=0TO7:CL(I)=10:NEXT:FORI=0TO7
  48. 48 J=INT(8*RND(1)):IFCL(J)<>10THEN48
  49. 49 CL(J)=I:CH(I)=J:NEXT:POKE53280,1:POKE53281,1:PRINT"[147]"
  50. 50 FORII=0TO7:LO=PO(II)+54272:PC=CO(CL(II)):GOSUB20:LO=LO-54272:PC=160:GOSUB20:NEXT
  51. 51 PRINT"[144][208]LEASE CHOOSE THE COLOR YOU MOST PREFER."
  52. 52 PRINT"      1        2        3        4"
  53. 53 PRINT"      5        6        7        8"
  54. 54 FORII=0TO7:POKE198,0
  55. 55 GETA$:IFA$<"1"ORA$>"8"THEN55
  56. 56 T=VAL(A$)-1:S=CL(T):IFS=10THEN55
  57. 57 CH(II)=S:CL(T)=10:LO=PO(T):PC=32:GOSUB20:NEXT
  58. 58 PL=10*CH(0)+CH(1):MU=10*CH(2)+CH(3):EQ=10*CH(4)+CH(5):MI=10*CH(6)+CH(7)
  59. 59 PM=10*CH(0)+CH(7):PRINT"[147][144]";
  60. 60 S=PL(PL):GOSUB70
  61. 61 S=MU(MU):GOSUB70
  62. 62 S=EQ(EQ):GOSUB70
  63. 63 S=MI(MI):GOSUB70
  64. 64 S=PM(PM):GOSUB70:POKE198,0:PRINT"[212]RY AGAIN ?";
  65. 65 GETA$:IFA$<>"Y"ANDA$<>"N"THEN65
  66. 66 PRINTCHR$(ASC(A$)+32):IFA$="Y"THEN47
  67. 67 CLOSE2:CLOSE15:PRINT"[147][144]"CHR$(142);:POKE53280,9:POKE53281,12:END
  68. 68 INPUT#15,EN,E$,ET,ES:IFEN<20THENRETURN
  69. 69 PRINTEN;E$;ET;ES:CLOSE2:CLOSE15:END
  70. 70 OPEN15,8,15,"I0":GOSUB68:OPEN2,8,2,"LUSCHER DATA.D":GOSUB68
  71. 71 PRINT#15,"P"CHR$(2)CHR$(255ANDS)CHR$(INT(S/256))CHR$(1):GOSUB68:NC=0
  72. 72 NC=NC+1:IFNC>254THEN75
  73. 73 GET#2,A$:IFA$=CHR$(0)ORA$=""THEN75
  74. 74 PRINTA$;:GOTO72
  75. 75 PRINT:CLOSE2:CLOSE15:RETURN
  76.